The Trig Explorer/The Trig Explorer.iso/pc/explorer/ex_funct.dxr/00037.ls

Text File | 1997-07-22 | 334 b | 22 lines

on mouseUp
  global r, theta
  set r to field "R"
  if field "Theta" = EMPTY then
    set theta to 0
    put "0" into field "Theta"
  end if
  if value(field "Theta") >= 90 then
    set theta to 89
    put "89" into field "Theta"
  end if
  if r <= 0 then
    go("Error")
  else
    go("SA")
  end if
end

on mouseDown
  button()
end